home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 2.3.dxr / Internal_36_Peer's groeieffect.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  768 b   |  25 lines
  1. property spriteNum
  2.  
  3. on enterFrame
  4.   SpriteBreedte = 184
  5.   SpriteHoogte = 92
  6.   VerschilBreedte = abs(the mouseH - sprite(spriteNum).locH)
  7.   VerschilHoogte = abs(the mouseV - sprite(spriteNum).locV)
  8.   HoogteFactor = float((SpriteHoogte / 2) - VerschilHoogte) / (SpriteHoogte / 2)
  9.   BreedteFactor = float((SpriteBreedte / 2) - VerschilBreedte) / (SpriteBreedte / 2)
  10.   Factor = (HoogteFactor + BreedteFactor) * 1.5
  11.   if Factor < 1 then
  12.     Factor = 1
  13.   end if
  14.   if (Factor <= 2) and (Factor >= 1) then
  15.     sprite(spriteNum).width = Factor * SpriteBreedte
  16.     sprite(spriteNum).height = Factor * SpriteHoogte
  17.     sprite(spriteNum).locZ = 50 + (Factor * 20)
  18.   end if
  19.   if Factor = 1 then
  20.     sprite(spriteNum).blend = 0
  21.   else
  22.     sprite(spriteNum).blend = 100
  23.   end if
  24. end
  25.